home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2002 January / january_2002.iso / Piposh Special / Piposh / WEST1.DXR / 00140.ls < prev    next >
Encoding:
Text File  |  2004-12-06  |  1.3 KB  |  47 lines
  1. on exitFrame
  2.   global mnv, ppl, vppl, trgt, blty, bltx, manleft, psila, hppl, bltsprite, xpnt, ypnt, muchpnt, bltwich, effectspath
  3.   sprite(9).visible = 0
  4.   sprite(2).visible = 0
  5.   sprite(3).visible = 0
  6.   sprite(10).visible = 0
  7.   puppetSprite(5, 1)
  8.   puppetSprite(6, 1)
  9.   puppetSprite(20, 1)
  10.   set the member of sprite 20 to member(178, 1)
  11.   sound playFile 4, effectspath & "1234.aif"
  12.   if not soundBusy(4) then
  13.     manleft = 25
  14.   else
  15.     manleft = 5
  16.   end if
  17.   psila = 5
  18.   bltx = []
  19.   bltsprite = []
  20.   blty = []
  21.   bltwich = []
  22.   xpnt = []
  23.   ypnt = []
  24.   muchpnt = []
  25.   trgt = [0, "d", "d", "d", "d", "d", "d", "d", "d"]
  26.   mnv = [0, 0, 0, 0, 0, 0, 0, 0, 0]
  27.   ppl = [8, 11, 12, 13, 14, 15, 16, 17, 18]
  28.   vppl = [240, 1002, 1003, 1004, 1005, 1006, 1007, 1008, 1009]
  29.   hppl = [360, 1002, 1003, 1004, 1005, 1006, 1007, 1008, 1009]
  30.   puppetSprite(8, 1)
  31.   set the constraint of sprite 8 to 21
  32.   repeat with i = 11 to 18
  33.     puppetSprite(i, 1)
  34.     sprite(i).visible = 1
  35.     set the constraint of sprite i to 21
  36.   end repeat
  37.   repeat with i = 50 to 64
  38.     puppetSprite(i, 1)
  39.     set the loc of sprite i to point(690, 490)
  40.   end repeat
  41.   set the locH of sprite getAt(ppl, 1) to getAt(hppl, 1)
  42.   set the locV of sprite getAt(ppl, 1) to getAt(vppl, 1)
  43.   set the member of sprite getAt(ppl, 1) to member(37, 1)
  44.   set the keyDownScript to "westdown"
  45.   set the keyUpScript to "westup"
  46. end
  47.